home *** CD-ROM | disk | FTP | other *** search
- object Form26: TForm26
- Left = 244
- Top = 196
- BorderStyle = bsNone
- Caption = 'Arsa Ve Arazi Giri�i'
- ClientHeight = 400
- ClientWidth = 600
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 600
- Height = 400
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Image2: TImage
- Left = 56
- Top = 344
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image001.jpg>}
- Visible = False
- end
- object Image3: TImage
- Left = 228
- Top = 344
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image002.jpg>}
- Visible = False
- end
- object Image4: TImage
- Left = 400
- Top = 344
- Width = 151
- Height = 38
- AutoSize = True
- Picture.Data = {<image003.jpg>}
- Visible = False
- end
- object Label1: TLabel
- Left = 64
- Top = 352
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Liste'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label1MouseDown
- OnMouseUp = Label1MouseUp
- end
- object Label2: TLabel
- Left = 234
- Top = 352
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Yazd�r'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label2MouseDown
- OnMouseUp = Label2MouseUp
- end
- object Label3: TLabel
- Left = 408
- Top = 352
- Width = 137
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = '��k��'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- OnMouseDown = Label3MouseDown
- OnMouseUp = Label3MouseUp
- end
- object Label4: TLabel
- Left = 56
- Top = 104
- Width = 24
- Height = 13
- Caption = 'Semt'
- Transparent = True
- end
- object Label5: TLabel
- Left = 56
- Top = 128
- Width = 19
- Height = 13
- Caption = 'Ada'
- Transparent = True
- end
- object Label6: TLabel
- Left = 56
- Top = 152
- Width = 29
- Height = 13
- Caption = 'Parsel'
- Transparent = True
- end
- object Label7: TLabel
- Left = 56
- Top = 176
- Width = 25
- Height = 13
- Caption = 'Pafta'
- Transparent = True
- end
- object Label8: TLabel
- Left = 56
- Top = 200
- Width = 20
- Height = 13
- Caption = '�mar'
- Transparent = True
- end
- object Label9: TLabel
- Left = 328
- Top = 200
- Width = 24
- Height = 13
- Caption = 'Fiyat�'
- Transparent = True
- end
- object Label10: TLabel
- Left = 56
- Top = 280
- Width = 28
- Height = 13
- Caption = 'Notlar'
- Transparent = True
- end
- object Label11: TLabel
- Left = 328
- Top = 176
- Width = 64
- Height = 13
- Caption = 'Cep Telefonu'
- Transparent = True
- end
- object Label12: TLabel
- Left = 328
- Top = 152
- Width = 53
- Height = 13
- Caption = '�� Telefonu'
- Transparent = True
- end
- object Label13: TLabel
- Left = 328
- Top = 128
- Width = 36
- Height = 13
- Caption = 'Telefon'
- Transparent = True
- end
- object Label14: TLabel
- Left = 328
- Top = 104
- Width = 18
- Height = 13
- Caption = '�sim'
- Transparent = True
- end
- object Label15: TLabel
- Left = 328
- Top = 224
- Width = 31
- Height = 13
- Caption = 'Durum'
- Transparent = True
- end
- object Label16: TLabel
- Left = 56
- Top = 224
- Width = 27
- Height = 13
- Caption = 'D�viz'
- Transparent = True
- end
- object Label17: TLabel
- Left = 56
- Top = 312
- Width = 27
- Height = 13
- Caption = 'Adres'
- Transparent = True
- end
- object Image5: TImage
- Left = 56
- Top = 245
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image004.bmp>}
- Transparent = True
- end
- object Image11: TImage
- Left = 344
- Top = 243
- Width = 149
- Height = 28
- Picture.Data = {<image005.jpg>}
- Stretch = True
- end
- object Image7: TImage
- Left = 344
- Top = 241
- Width = 151
- Height = 30
- Picture.Data = {<image006.jpg>}
- Stretch = True
- Visible = False
- end
- object Label29: TLabel
- Left = 351
- Top = 248
- Width = 137
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = 'Emlak Sahibini G�ster'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- OnMouseDown = Label29MouseDown
- OnMouseUp = Label29MouseUp
- end
- object DBNavigator1: TDBNavigator
- Left = 80
- Top = 72
- Width = 440
- Height = 18
- DataSource = DataSource1
- Hints.Strings = (
- '�lk Kay�t'
- '�nceki Kay�t'
- 'Sonraki Kay�t'
- 'Son Kay�t'
- 'Kay�t Ekle'
- 'Kay�t Sil'
- 'De�i�iklik'
- 'Onayla'
- 'De�i�iklik �ptal'
- 'Yenile')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 15
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 96
- Top = 96
- Width = 121
- Height = 21
- DataField = 'Semt'
- DataSource = DataSource1
- KeyField = 'Semtler'
- ListField = 'Semtler'
- ListSource = DataSource2
- TabOrder = 0
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit1: TDBEdit
- Left = 96
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Ada'
- DataSource = DataSource1
- TabOrder = 1
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit2: TDBEdit
- Left = 96
- Top = 144
- Width = 121
- Height = 21
- DataField = 'Parsel'
- DataSource = DataSource1
- TabOrder = 2
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit3: TDBEdit
- Left = 96
- Top = 168
- Width = 121
- Height = 21
- DataField = 'Pafta'
- DataSource = DataSource1
- TabOrder = 3
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit4: TDBEdit
- Left = 96
- Top = 192
- Width = 121
- Height = 21
- DataField = 'Imar'
- DataSource = DataSource1
- TabOrder = 4
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit5: TDBEdit
- Left = 96
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Doviz'
- DataSource = DataSource1
- TabOrder = 5
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit7: TDBEdit
- Left = 400
- Top = 192
- Width = 121
- Height = 21
- DataField = 'Fiyati'
- DataSource = DataSource1
- TabOrder = 11
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit8: TDBEdit
- Left = 400
- Top = 168
- Width = 121
- Height = 21
- DataField = 'CepTelefonu'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 10
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit9: TDBEdit
- Left = 400
- Top = 144
- Width = 121
- Height = 21
- DataField = 'IsTelefonu'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 9
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit10: TDBEdit
- Left = 400
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Telefon'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 8
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit11: TDBEdit
- Left = 400
- Top = 96
- Width = 121
- Height = 21
- DataField = 'Isim'
- DataSource = DataSource1
- TabOrder = 7
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo1: TDBMemo
- Left = 96
- Top = 304
- Width = 425
- Height = 25
- DataField = 'Adres'
- DataSource = DataSource1
- TabOrder = 14
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBMemo2: TDBMemo
- Left = 96
- Top = 272
- Width = 425
- Height = 25
- DataField = 'Notlar'
- DataSource = DataSource1
- TabOrder = 13
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBEdit12: TDBEdit
- Left = 96
- Top = 240
- Width = 121
- Height = 21
- DataField = 'Metre2'
- DataSource = DataSource1
- TabOrder = 6
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object DBComboBox1: TDBComboBox
- Left = 400
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Durum'
- DataSource = DataSource1
- ItemHeight = 13
- Items.Strings = (
- 'Sat�ld�'
- 'Sat�lmad�'
- 'Kiraland�'
- 'Kiralanmad�')
- TabOrder = 12
- OnKeyPress = DBLookupComboBox1KeyPress
- end
- object Panel1: TPanel
- Left = 328
- Top = 96
- Width = 193
- Height = 145
- BevelOuter = bvNone
- Caption = 'Panel1'
- TabOrder = 16
- object Image6: TImage
- Left = 0
- Top = 0
- Width = 193
- Height = 145
- AutoSize = True
- Picture.Data = {<image007.jpg>}
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 40
- Top = 8
- end
- object Table1: TTable
- Active = True
- AfterPost = Table1AfterPost
- TableName = 'arsa.db'
- Left = 80
- Top = 8
- object Table1No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table1Semt: TStringField
- FieldName = 'Semt'
- end
- object Table1Ada: TStringField
- FieldName = 'Ada'
- end
- object Table1Parsel: TStringField
- FieldName = 'Parsel'
- end
- object Table1Pafta: TStringField
- FieldName = 'Pafta'
- end
- object Table1Imar: TStringField
- FieldName = 'Imar'
- end
- object Table1Metre2: TStringField
- FieldName = 'Metre2'
- Size = 10
- end
- object Table1Fiyati: TCurrencyField
- FieldName = 'Fiyati'
- end
- object Table1Isim: TStringField
- FieldName = 'Isim'
- end
- object Table1Doviz: TStringField
- FieldName = 'Doviz'
- end
- object Table1Durum: TStringField
- FieldName = 'Durum'
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1IsTelefonu: TStringField
- FieldName = 'IsTelefonu'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1CepTelefonu: TStringField
- FieldName = 'CepTelefonu'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Notlar: TMemoField
- FieldName = 'Notlar'
- BlobType = ftMemo
- Size = 100
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 100
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 168
- Top = 16
- end
- object Table2: TTable
- Active = True
- TableName = 'semtler.db'
- Left = 208
- Top = 16
- object Table2No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table2Semtler: TStringField
- FieldName = 'Semtler'
- Size = 15
- end
- object Table2Aciklama: TMemoField
- FieldName = 'Aciklama'
- BlobType = ftMemo
- Size = 100
- end
- end
- end
-